home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Mathematica Demo / Animations / Color Movie < prev   
Text File  |  1989-03-04  |  4KB  |  79 lines
  1. (*^
  2.  
  3. ::[paletteColors = 128; 
  4.     fontset = title, "New York", 18, L2, center, bold, nohscroll;
  5.     fontset = subtitle, "New York", 14, L2, center, bold, nohscroll;
  6.     fontset = subsubtitle, "New York", 12, L2, center, bold, nohscroll;
  7.     fontset = section, "New York", 14, L2, bold, nohscroll, grayBox;
  8.     fontset = subsection, "New York", 12, L2, bold, nohscroll, blackBox;
  9.     fontset = subsubsection, "New York", 10, L2, bold, nohscroll, whiteBox;
  10.     fontset = text, "New York", 10, L2, nohscroll;
  11.     fontset = smalltext, "New York", 10, L2, nohscroll;
  12.     fontset = input, "Courier", 12, L2, bold, nowordwrap;
  13.     fontset = output, "Courier", 12, L2, nowordwrap;
  14.     fontset = message, "Courier", 12, L2, R65535, nowordwrap;
  15.     fontset = print, "Courier", 12, L2, nowordwrap;
  16.     fontset = info, "Courier", 12, L2, nowordwrap;
  17.     fontset = postscript, "Courier", 12, L2, nowordwrap;
  18.     fontset = name, "Geneva", 10, L2, italic, B65535, nohscroll;
  19.     fontset = header, "New York", 10, L2, nohscroll;
  20.     fontset = footer, "New York", 12, L2, center, nohscroll;
  21.     fontset = help, "Geneva", 10, L2, nohscroll;
  22.     fontset = clipboard, "New York", 12, L2;
  23.     fontset = completions, "New York", 12, L2;
  24.     fontset = network, "Courier", 10, L2, nowordwrap;
  25.     fontset = graphlabel, "Courier", 12, L2;
  26.     fontset = special1, "New York", 12, L2;
  27.     fontset = special2, "New York", 12, L2, center;
  28.     fontset = special3, "New York", 12, L2, right;
  29.     fontset = special4, "New York", 12, L2;
  30.     fontset = special5, "New York", 12, L2;]
  31. :[inactive; startGroup; font = title; ]
  32. Animated 3D Sine Wave
  33. (for Color monitors)
  34. ;[s]
  35. 2:0,2;42,0;43,-1;
  36. 3:1,23,17,New York,1,18,0,0,0;0,23,17,New York,1,18,65535,0,65535;1,23,17,New York,1,18,65535,0,0;
  37. :[inactive; font = smalltext; ]
  38. This Notebook contains an animated "movie". To show the movie,
  39.   •  Scroll until the first graphics cell is completely visible in the window.
  40.       (The movie is shown in this cell, so if it isn't visible, you won't see the movie.)
  41.   •  Select the movie by clicking the bracket that encloses its sequence of frames.
  42.       (This is the bracket whose bottom is angled.)
  43.   •  Type Y to start the movie.  A click anywhere will stop the animation.
  44. ;[s]
  45. 4:0,0;378,1;380,0;443,0;444,-1;
  46. 3:3,14,10,New York,0,10,0,0,0;1,15,12,Chicago,0,12,0,0,0;0,12,10,New York,1,10,0,0,0;
  47. :[inactive; font = smalltext; ]
  48. See the file Read This First! for a more detailed explanation of how to run a movie, and how to control its speed and direction.   (The animation in this Notebook looks best when run forward.)
  49. ;[s]
  50. 3:0,0;13,2;29,0;193,-1;
  51. 3:2,14,10,New York,0,10,0,0,0;0,15,12,Chicago,0,12,0,0,0;1,12,10,New York,1,10,0,0,0;
  52. :[font = input; ]
  53. <<Colors.m
  54. :[startGroup; font = input; ]
  55. Do[Plot3D[{Sin[x+n] Cos[y+n], 
  56.             HSBColor[(1 + Sin[x-n] Cos[y-n])/2, 1, 1]},
  57.           {x, -Pi, Pi}, {y, -Pi, Pi}], 
  58.    {n, 0, Pi-Pi/10, Pi/10}];
  59. :[inactive; PICT; pictureID = 14178; output; startGroup; Cclosed; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  60.  
  61. :[inactive; PICT; pictureID = 20779; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  62.  
  63. :[inactive; PICT; pictureID = 22994; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  64.  
  65. :[inactive; PICT; pictureID = 32755; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  66.  
  67. :[inactive; PICT; pictureID = 14171; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  68.  
  69. :[inactive; PICT; pictureID = 28418; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  70.  
  71. :[inactive; PICT; pictureID = 17892; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  72.  
  73. :[inactive; PICT; pictureID = 11030; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  74.  
  75. :[inactive; PICT; pictureID = 18395; output; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  76.  
  77. :[inactive; PICT; pictureID = 31733; output; endGroup; endGroup; endGroup; pictureLeft = 31; pictureWidth = 265; pictureHeight = 262; preserveAspect; font = postscript; ]
  78.  
  79. ^*)